Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tbox100/main.frm

Text File | 1995-05-08 | 1KB | 69 lines

VERSION 2.00
Begin MDIForm frmMain
   Caption         =   "Toolbox Demo"
   ClientHeight    =   5655
   ClientLeft      =   1290
   ClientTop       =   1965
   ClientWidth     =   7620
   Height          =   6345
   Icon            =   MAIN.FRX:0000
   Left            =   1230
   LinkTopic       =   "Main"
   Top             =   1335
   Width           =   7740
   WindowState     =   2  'Maximized
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuWindow
      Caption         =   "&Window"
      Begin Menu mnuAbout
         Caption         =   "&About Demo..."
      End
      Begin Menu mnuBlank
         Caption         =   "-"
      End
      Begin Menu mnuToolbox
         Caption         =   "&Toolbox"
      End
   End
End
Option Explicit

Sub MDIForm_Resize ()

  If WindowState = 1 Then
    frmToolbox.Hide
  Else
    If frmMain!mnuToolbox.Checked Then frmToolbox.Show
    End If
  End Sub

Sub MDIForm_Unload (Cancel As Integer)
  End
  End Sub

Sub mnuAbout_Click ()
  frmToolbox.Hide
  frmAbout.Show 1
  If frmMain!mnuToolbox.Checked Then frmToolbox.Show
  End Sub

Sub mnuExit_Click ()
  End
  End Sub

Sub mnuToolbox_Click ()
  If mnuToolbox.Checked Then
    mnuToolbox.Checked = False
    frmToolbox.Hide
  Else
    mnuToolbox.Checked = True
    frmToolbox.Show
    End If
End Sub